home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00021_Enter Name 1 looper script.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  776 b   |  23 lines
  1. on exitFrame
  2.   global gNumPlayers, gName3Sprite, gName2Sprite, gScore2Sprite, gScore3Sprite, gVoiceChannel, gPathToSound, fileDelimiter
  3.   if the keyPressed = RETURN then
  4.     if the text of field "player name" <> EMPTY then
  5.       sound playFile gVoiceChannel, gPathToSound & "signup" & fileDelimiter & "mock1.aif"
  6.       Capitalize("player name")
  7.       set the text of field "name1" to the text of field "player name"
  8.       repeat while soundBusy(gVoiceChannel)
  9.       end repeat
  10.       if gNumPlayers > 1 then
  11.         go(the frame + 1)
  12.       else
  13.         puppetSprite(gName2Sprite, 1)
  14.         puppetSprite(gScore2Sprite, 1)
  15.         puppetSprite(gName3Sprite, 1)
  16.         puppetSprite(gScore3Sprite, 1)
  17.         go("Key Assign")
  18.       end if
  19.     end if
  20.   end if
  21.   go(the frame)
  22. end
  23.